﻿Module Module1

    Sub Main()
        Dim valores As Array
        Dim valor_actual As Integer
        Dim valor_dado As Integer = 0
        Dim contador1 As Integer
        Dim contador2 As Integer

        For contador = 1 To 5

            For contador2 = 1 To 6
                valor_dado = contador2

            Next
            valor_actual = valor_dado * contador
            valores.SetValue(valor_actual, contador - 1)


        Next



    End Sub

End Module
